home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / forthcmp.zip / DISPLAY1.4TH < prev    next >
Text File  |  1992-03-30  |  1KB  |  43 lines
  1. \ FORTH COMPILER  DISPLAY LIBRARY                 18:35 11/30/91
  2.  
  3. 0 #IF
  4. COPYRIGHT 1985 (C) BY THOMAS ALMY.  ALL RIGHTS RESERVED
  5. Permission is granted to registered users of ForthCMP to sell or distribute
  6. computer programs incorporating the compiled contents of this file.
  7.  
  8. Fast Terminal output for IBM pc or compatibles.
  9. Works with monochrome or color monitors, 80 column text only!
  10. EMIT generates all 256 characters -- no control functions.
  11.  
  12. Include this file at start of program.
  13. Include the file DISPLAY2 before FORTHLIB
  14. Define constant VID-DELAY non-zero for vertical retrace blanking
  15. Execute SETUP-VID at program start, and UNSETUP-VID at finish
  16.  
  17. This library defines EMIT, TYPE, CS:TYPE, CLS, GOTOXY, FOREGROUND,
  18. BACKGROUND, INTENSITY, -INTENSITY, BLINK, -BLINK, as in
  19. PC/Forth. DO NOT use CONSOLE PRINTER and/or MESSAGES!
  20.  
  21.  
  22. #THEN
  23.  
  24. 10 HEX
  25. VARIABLE vidseg    \ VIDEO SEGMENT
  26. VARIABLE style     \ DISPLAY STYLE
  27. VARIABLE cursor    \ CURSOR POSITION
  28. VARIABLE crtport   \ CRT PORT
  29. B800 vidseg !   7 style !   0 cursor !   3D4 crtport !
  30. 50 CONSTANT c/l    \ Characters per line
  31. 19 EQU      l/s    \ lines per screen
  32. 0 EQU c/s  0 EQU c/sm1   0 EQU crtstart
  33.  
  34. 0 0 IN/OUT NEED CLS
  35. 1 0 IN/OUT NEED FOREGROUND
  36. 1 0 IN/OUT NEED BACKGROUND
  37. 0 0 IN/OUT NEED BLINK
  38. 0 0 IN/OUT NEED -BLINK
  39. 0 0 IN/OUT NEED INTENSITY
  40. 0 0 IN/OUT NEED -INTENSITY
  41. 0A = #IF DECIMAL #THEN
  42.  
  43.